SERIAL NO. : 09/997.133 
PETER H. PRIEST (919-942-1434) 

1/30 



FIG. 1 




IMS OSAM 
COLLECTION 
PROCESS 



l/~ 1G0 



162- 



± 



EXCEPTION 
REPORT 



170 



SERIAL NO.: 09/997.133 
PETER H. PRIEST (919-942-1434) 

2/30 



FIG. 2 A 



C START ^V" 

r 



201 



200 



1. READ DCOLLECT 
RECORD 



I 



2. PARSE RECORD FOR 
DATASET NAME, VOLUME 
SERIAL. ALLOCATED SPACE 
AND USED SPACE 



-202 



•204 





290 



o " s 7' ,:i 3 :s; ... 11 a: i£ 



SERIAL NO.: 09/997.133 
PETER H. PRIEST (919-942-1434) 

3/30 



FIG 

C 


. 2B 

t 


G. Process_first_time 






INITIALIZE ALL VARIABLES 






INITIALIZE TOTAL VARIABLES 







215 



SERIAL NO. : 09/997,133 
PETER H. PRIEST (919-942-1434) 

4/30 



FIG. 2C 




A. ADD 1 TO INDEX 
B. PUT VARIABLES FROM STEP 2 INTO 
CURRENT ENTRY (MAXIMUM OF 20) 



if-'ii :C"h ' »h "'Ti*' ""^ iV'si '"ti TJi * ipiJ : 

w v ,i } ..ji. „„.u hi u,„i« jiu. V *Um,1_„ 



SERIAL NO.: 09/997,133 
PETER H. PRIEST (919-942-1434) 

5/30 



FIG 

\ 


. 2D 

r 


9. Write_Out_dataset_info 








CALL SUBLISTC 
SUBROUTINE 










CALL SUB009 
SUBROUTINE 








GET gts_ 
all.volsers 


flag AND 
FROM SUB009 




-220 



•300 



•400 



■221 



SERIAL NO.: 09/997,133 
PETER H. PRIEST (919-942-1434) 

6/30 



FIG. 2E 



225 PROCESSED SERIALLY 



t\~^n ir*H ' ^ «j| ',,.|* ^ "."ii j,„*U jj" j: 



SERIAL NO.: 09/997,133 
PETER H. PRIEST (919-942-1434) 

7/30 

FIG. 2F 




SERIAL NO.: 09/997.133 
PETER H. PRIEST (919-942-1434) 

8/30 



FIG. 2G 




SERIAL NO.: 09/997,133 
PETER H. PRIEST (919-942-1434) 

9/30 



FIG. 2H 

/\ 



10. Further_process_output 
FORMAT report line FOR 
EACH VOLUME 
Write.line 



■251 



11. Split.volsers 
PARSE ALL VOLSERS TO 
listcat_volser_tables 



•223 




SERVERE ERROR 16 TO 
RETURN CODE AND WRITE 
MESSAGE 



■235 



if 13 ir**;i iV"n if"u ",,!■ «p 1 

jlj 1 -3" ".:;>* / ,1 Jh j> 



SERIAL NO. : 09/997.133 
PETER H. PRIEST (919-942-1434) 

10/30 



FIG. 21 

/\ 




THIS CODE LOOKS IS A SERIES OF DECISIONS CHECKING 
IF THE CURRENT VOLSER SEQUENCE BASED ON THE 
LISTCAT IS THE ENTRY IN THE TABLE. RATHER THAT 

TABLE PROCESSING, IT USES A SERIES OF IF 
STATEMENTS. IF IT IS THE FIRST NUMERIC VALUE 
OTHER THAN A 0, IT WILL SET ALL PREVIOUS AMOUNTS 
USED TO 100 PERCENT. THIS IS BECAUSE OSAM DOES 
NOT CORRECTLY SET THE USED AMOUNT ON THE FIRST 
VOLUMES IN A SERIES 




ADD 
alloc space 
FOR EACH 
VOLSER 



SERIAL NO. : 09/997.133 
PETER H. PRIEST (919-942-1434) 

11/30 

FIG. 2 J 

/\ „ 




ADD 
used.space 
FOR EACH VOLSER 




CALCULATE 
PERCENT 
USED 



SERIAL NO. :. 09/997,133 
PETER H. PRIEST (919-942-1434) 

12/30 



FIG. 2K 

A 




PUT ORDER NUMBER FROM 

LISTCAT IN ORDER 
NUMBER (CURRENT ENTRY) 




CALL THE REXX COMMAND LISTDSI 
(TO GET DATASET INFORMATION) , 
USING THE KEYWORDS DIRECTORY, 
NO-RECALL AND SMSINFO.. THIS 

IS WHAT GET THE CURRENT 
ATTRIBUTES ABOUT THE DATASET 



SERIAL NO. : 09/397.133 
PETER H. PRIEST (919-942-1434) 

13/30 



FIG. 21 



IB. DETERMINE 
TOTAL NUM VOLS 



■25B 




SET THE NUMBER OF 
VOLUMES TO THE 4th AND 5th 
POSITION OF THE DATACLASS 

(FROM THE LISTDSI) 




WRITE ERROR REPORT 



20. INITIALIZE 
TABLE VARS 



-2G0 




SET ALL INITIAL 
VARIABLES TO THIER 
INITIAL (DEFAULT) VALUES 



SERIAL NO. : 09/997,133 
PETER H. PRIEST (919-942-1434) 

14/30 





SERIAL NO.: 09/997.133 
PETER H. PRIEST (919-942-1434) 

15/30 



FIG. 2N 

/\ 



23. ERROR 
ROUTINE SIZE 




265 



23. ERROR 
ROUTINE SIZE 




■261 




SERIAL NO.: 09/997.133 
PETER H. PRIEST (919-942-1434) 

16/30 



FIG. 20 

/\ 



25. PROCESS 
OSAM GTS 



-278 




281 



NO 


CALCULATE 


SPACE IN 




CYLINDERS 



CALCULATE ONE 
EXTENT AND 
TWO EXTENTS 



-282 






CALL 






SUBROUTINE 






SUBOOG 




JL ^285 



•284 



IS IT 

GTS 



2B. 

Process.gts 



■286 



SERIAL NO. : 09/997,133 
PETER H. PRIEST (919-942-1434) 

17/30 



FIG. 2P 

/N 



2G. 

Process.gts 



•286 




27. LOOK UP 
VOL INFO 



•287 



27. LOOK UP 
VOL INFO 



-287 




28. BUILD NEWl 
SYSIN CARD 



-288 



CALL 
SUBROUTINE 
IEHLISTR 



-289 



CALL 
SUBROUTINE 
SUBL002 



-291 



GET THE VARIABLE 
total_free_cyl 
FROM ABOVE 
SUBROUTINE 



-292 



'iY"i\ -ir* |i h* i; 'X « " *;= 

"Hi 1 ' ,,i J 



SERIAL NO.: 09/997,133 
PETER H. PRIEST (919-942-1434) 

18/30 



FIG. 20 



27B 




'! ' p 'l.jj -J' 1 "ji y'-- T-t ! 'P l| i'-' 11 



SERIAL NO.: 09/997.133 
PETER H. PRIEST (919-942-1434) 

19/30 



FIG. 2R 

/\ 



28. BUILD NEW 
SYSIN CARD 




WRITE 
FORMATTED 
SYSIN CARD 



•288 



29. WRITE ONEl 
EXTENT 




WRITE 
OUTPUT 
LINE 



30. WRITE TWO 
EXTENTS ERROR 




WRITE 
OUTPUT 
LINE 



SERIAL NO. : 09/997.133 
PETER H. PRIEST (919-942-1434) 

20/30 



FIG. 2S 



31. WRITE 
DATASET NAME 



•298 





SERIAL NO. : 09/997.133 
PETER H. PRIEST (919-942-1434) 

21/30 



FIG. 3 



302 



304- 



STARTj 

T 



SOB- 



SOB- 



I 



SET VARIABLE 
SUB-RC TO THE 
RETURN CODE 
FROM IDCAMS 



300 



ACCEPT 
DATASET NAME 
FROM CALLING 

MODULE 








ISSUE IDCAMS 
LISTCAT 
COMMAND 


i 





307 

L 



J LISTCAT f 
^ OUTPUT ^ 



SERIAL NO.: 09/997,133 
PETER H. PRIEST (919-942-1434) 

22/30 



FIG. 4 A 



(ItartV 402 



i 



INITIALIZE 
ALL VARIABLES 



I 



READ A 
RECORD 



I 



3. Reformat, 
recs 




FORMAT 
VARIABLES 



RETURN 
VARIABLES 
TO CALLING 

PROGRAM 



■404 



•406 



•408 



•410 



■412 



414 



416 



jP 1 ]! il^.h if'^l 3l""ji i* 1 *=ji °J,<- it" 1 !! 



SERIAL NO. : 09/997.133 
PETER H. PRIEST (919-942-1434) 

23/30 



FIG. 4B 

s\ 




SERIAL NO.: 09/997.133 
PETER H. PRIEST (919-942-1434) 

24/30 



FIG. 4C 

/\ 



9. ADD TO 
VOLSER 




•432 



PUT VOLSER IN 
NEXT AVAILABLE 
BUCKET 



•434 




SERIAL NO.: 09/997,133 
PETER H. PRIEST (919-942-1434) 

25/30 



FIG 


. 5 A 


Q START y 






INITALIZE 
VARIABLES 



l 



READ SYSPRINT 
RECORD FROM 
IEHLISTR 
SUBROUTINE 



1. REFORMAT 
RECS 



-502 



-504 



-506 



-508 




SERIAL NO. : 09/997,133 
PETER H. PRIEST (919-942-1434) 

26/30 



FIG. 5B 




SERIAL NO. : 09/997,133 
PETER H. PRIEST (919-942-1434) 

27/30 
FIG. 6 



( START ^ m 



I 



GET VARIABLES 
FROM CALLING 
MODULE 



I 



INITIALIZE 
VARIABLES 



I 



ALLOCATE 
SYSIN FILE 






BUILD SYSIN 
DATA FROM 

PASSED 
VARIABLES 






EXECUTE 
lEHLIST 

UTILITY 







-604 



-606 



-608 



-610 



-612 



( end y ~ 



614 



SERIAL NO. : 09/997,133 
PETER H. PRIEST (919-942-1434) 

28/30 



FIG. 7 A 



700 



INITIIZE ALL 
VARIABLES \ 







704 





SERIAL NO.: 03/997,133 
PETER H. PRIEST (919-942-1434) 

29/30 



FIG. 7B 




808- 



SERIAL NO.: 09/397.133 
PETER H. PRIEST (919-942-1434) 

30/30 



FIG. 8 

From: ^,^800 
To: ' 
Sent: Monday. November 26. 2001 4:25 PM 

Subject: Sample Report , < — 8 ^ z 

**WARNING»* Dataset Name: VI. IMS. DB01. DATABASE Is over the USED 
space threshold total KB Alloc=796B376 total KB Used=5204843 

-Percent Used 65.31 v c=^-804 v XZ=lo 0 c 

**WARNING**Dataset Name: VI. IMS. DB05. DATABASE Is over the 

USED space threshold total KB Alloc=7636360 total KB Used=6354835 

Percent Used 83.21 

**WARNING*» Dataset Name: VI. IMS. DB02. DATABASE Is over the 

USED space threshold total KB Alloc = 7636360 total KB Used=6417696 

Percent Used 84.04 

**WARNING*# Dataset Name: VI. IMS. DB041. DATABASE Is over the 
USED space threshold total KB Alloc=5312250 total KB Used=52G4938 
Percent Used 99.10 

**WARNING»* Dataset Name: VI. IMS. DB042. DATABASE Is over the 
USED space threshold total KB Alloc=7636360 total KB Used=6603791 
Percent Used 86.47 

**CRITICAL**Dataset VI. IMS. DB043. DATABASE cannot take one 
extent on vol GTV001 alloc 7636360 Used 6603791 %USED 86.47 
#*WARNING**Dataset Name: VI. IMS. DB03. DATABASE Is over the 
USED space threshold total KB Alloc=7G36360 total KB Used=5216796 
Percent Used 68.31 



*** END OF REPORT *** 



